home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / Feelin021015 / Examples / 01.e < prev    next >
Encoding:
Text File  |  2002-10-28  |  2.0 KB  |  72 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. PROC main()
  6.    DEF c,w,p1,p2,p3,p4,g,s
  7.  
  8.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  9.       c := ClientObject,
  10.          FA_Pen_Shine,     'c:7878A0',
  11.          FA_Pen_Fill,      'c:555578',
  12.          FA_Pen_Dark,      'c:000000',
  13.          FA_Pen_Text,      'c:000000',
  14.          FA_Pen_Highlight, 'c:AA7864',
  15.  
  16.          Child, w := WindowObject,
  17.             FA_Back,          '2:Feelin:Images/StripPurple.iff',
  18.             FA_Window_Title,  'Feelin : Props',
  19.  
  20.             Child, VGroup,
  21.                Child, TextObject, FA_Text,{__Text},FA_Fixed,TRUE, DontChain, End,
  22.  
  23.                Child, p1 := Prop(TRUE,32,16,0),
  24.                Child, p2 := Prop(TRUE,32,08,0),
  25.                Child, p3 := Prop(TRUE,32,04,0),
  26.                Child, p4 := Prop(TRUE,32,02,0),
  27.  
  28.                Child, Bar,
  29.  
  30.                Child, VGroup, FA_FixedHeight,TRUE,
  31.                   Child, s := F_NewObjA(FC_Slider,[
  32.                                         FA_Horizontal,      TRUE,
  33.                                         FA_Frame,           FP_Frame_Slider,
  34.                                         FA_Back,            FP_Back_Slider,
  35.                                         FA_Font,            'Nokia/13',
  36.                                         FA_Numeric_Min,     0,
  37.                                         FA_Numeric_Max,     32,
  38.                                         FA_Numeric_Value,   0,
  39.                                         FA_Numeric_Format,  '`Ss`SeLevel: \d',
  40.                                         TAG_DONE]),
  41.  
  42.                   Child, g := Gauge(TRUE,0,32,0),
  43.                End,
  44.             End,
  45.  
  46.             FA_Window_ActiveObject,p4,
  47.          End,
  48.       End
  49.  
  50.       IF c
  51.          F_DoA(p2,FM_Notify,[FA_Prop_First,FV_Notify_Always,p1,3,FM_Set,FA_Prop_First,FV_Notify_Value])
  52.          F_DoA(p3,FM_Notify,[FA_Prop_First,FV_Notify_Always,p2,3,FM_Set,FA_Prop_First,FV_Notify_Value])
  53.          F_DoA(p4,FM_Notify,[FA_Prop_First,FV_Notify_Always,p3,3,FM_Set,FA_Prop_First,FV_Notify_Value])
  54.          F_DoA(s,FM_Notify,[FA_Numeric_Value,FV_Notify_Always,g,3,FM_Set,FA_Numeric_Value,FV_Notify_Value])
  55.  
  56.          F_DoA(w,FM_Notify,[FA_Window_CloseRequest,TRUE,FV_Notify_Client,2,FM_Client_ReturnID,FV_Client_Quit])
  57.          F_Set(w,FA_Window_Open,TRUE)
  58.  
  59.          F_DoA(c,FM_Client_Run,NIL)
  60.  
  61.          F_DisposeObj(c)
  62.       ENDIF
  63.  
  64.       CloseLibrary(feelinbase)
  65.    ENDIF
  66. ENDPROC
  67.  
  68. __Text:
  69.    CHAR '`j`SsNotification example :\n',
  70.         'four Proportionnals,\n',
  71.         'a Slider and a Gauge',0
  72.